-- background: 29303 from stack: in.0
-- bmap block id: 29474
-- flags: 0000
-- background id: 0
-- name: Registration
----- HyperTalk script -----
on openCard
  global viewTime
  put the seconds into viewTime
end openCard

on returnKey
  global stringToFind
  if the visible of msg is true or stringToFind is empty then
    pass returnKey
  else
    if the foundText is not empty then
      find string stringToFind
      if the result is not "not found" then
        play stop
        play harpsichord a7t ae
      end if
    end if
  end if
end returnKey

on find
  if the visible of msg is true then
    show msg
  end if
  pass find
end find

on arrowKey
  -- do nothing
end arrowKey



-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=2 top=3 right=21 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 2304
-- line height: 16
-- part name: Header


-- part 22 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=343 top=3 right=20 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 20
-- text size: 12
-- style flags: 2304
-- line height: 16
-- part name: Page Number


-- part 43 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=94 top=305 right=337 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseDown
  play stop
  play harpsichord a7e
end mouseDown

on mouseUp
  doMenu Quit HyperCard
end mouseUp


-- part 49 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=163 top=99 right=118 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  go to card "Registration"
end mouseUp



-- part 50 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=463 top=305 right=337 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Contents
----- HyperTalk script -----
on mouseDown
  play stop
  play harpsichord a7e
end mouseDown

on mouseUp
  put true into allClear
  repeat with n = 1 to 14
    if the hilite of card button n is true then
      put false into allClear
      exit repeat
    end if
  end repeat

  if card field "Address" is not empty then
    put false into allClear
  end if

  if card field "Other" is not empty then
    put false into allClear
  end if

  if allClear then
    visual effect dissolve
    go to card "Registration Dissolve"
    visual effect iris close to black
    visual effect iris open
    go to card "Main Menu"
  else
    global alreadyPrinted
    if not alreadyPrinted then
      answer "You haven't printed this page yet.  Print?" with "No" or "OK"
      if it is "OK" then
        global alreadyPrinted
        put true into alreadyPrinted
        set lockScreen to true
        open printing
        print 2 cards
        close printing
        set lockScreen to false
      end if
    end if

    answer "Clear page before returning to Main Menu?" with "Cancel" or "No" or "OK"
    if it is not "Cancel" then
      if it is "OK" then
        put empty into card field "Address"
        put empty into card field "Other"
        repeat with n = 1 to 14
          set the hilite of card button n to false
        end repeat
      end if
      visual effect dissolve
      go to card "Registration Dissolve"
      visual effect iris close to black
      visual effect iris open
      go to card "Main Menu"
    end if
  end if
end mouseUp